home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Pascal / Source□ / Talk Source / Talk ƒ / AppGlobals.p next >
Encoding:
Text File  |  1992-04-20  |  1.1 KB  |  56 lines  |  [TEXT/PJMM]
  1. unit AppGlobals;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     const
  8.         myAppType = 'tALK';
  9.         pref_rsrc = 'PREF';
  10.         pref_id = 128;
  11.         defaultStrResID = 128;
  12.         window_id = 128;
  13.         pref_read_alert_id = 130;
  14.         pref_write_alert_id = 131;
  15.         abort_alert_id = 136;
  16.         PermDeniedAlertID = 137;
  17.         RefusedAlertID = 138;
  18.         pref_dialog_id = 400;
  19.         talk_input_dialog_id = 500;
  20.         talk_output_dialog_id = 600;
  21.         status_dialog_id = 700;
  22.         sicn_id = 128;
  23.         grow_sicn_id = 128;
  24.         grow_sicn_index = 2;
  25.         quitBothStrhID = 130;
  26.         quitBothQuitStrhIndex = 1;
  27.         quitBothQuitBothStrhIndex = 2;
  28.         statusButtonsStrhID = 131;
  29.         statusAbortStrIndex = 1;
  30.         statusHangUpStrIndex = 2;
  31.         statusRemoveStrIndex = 3;
  32.         statusConnectStrIndex = 4;
  33.         statusRingAgainStrIndex = 5;
  34.         statusToFrontStrIndex = 6;
  35.         savedWindowResType = 'S_WP';
  36.  
  37.     const
  38.         M_InternetTo = 140;
  39.         M_RemoveTo = 141;
  40.  
  41.         to_rsrc = 'STR#';
  42.         to_strh_id = 129;
  43.  
  44.     const
  45.         CTalk = 'talk';
  46.         CXInternet = 'xtlk';
  47.         CXRemove = 'xrmv';
  48.         CSaveMenu = 'smnu';
  49.         CStatus = 'stat';
  50.  
  51.     var
  52.         my_machine_addr: longInt;
  53.  
  54. implementation
  55.  
  56. end.